home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Utils / ConsoleUtils.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  976 b   |  34 lines
  1.  
  2. {
  3.         ConsoleUtils.i for PCQ Pascal
  4.  
  5.             This file defines two functions that simply initialize and close
  6.         the console device.  They do it by calling OpenDevice, then setting
  7.         ConsoleBase (defined in Devices/Console.i) to io_Device.
  8.  
  9.             Also see Utils/ConsoleIO.i, Utils/CRT.i, and of course
  10.         Devices/Console.i.
  11.  
  12.             The source for these two functions, which are written in
  13.         Pascal, are in RunTime/Extras.
  14. }
  15.  
  16. {$I   "Include:Exec/IO.i"}
  17. {$I   "Include:Devices/Console.i"}
  18.  
  19. var
  20.     ConsoleRequest : IOStdReq;
  21.  
  22. Procedure OpenConsoleDevice;
  23.     External;
  24.         { Assigns a valid pointer, or Nil, to ConsoleBase.  All it
  25.           does, actually, is call OpenDevice and extract the
  26.           io_Device field.  In any case, you must get a valid pointer
  27.           into ConsoleBase before calling RawKeyConvert or
  28.           CDInputHandler. }
  29.  
  30. Procedure CloseConsoleDevice;
  31.     External;
  32.       { Closes the console device }
  33.  
  34.